/* CPS-Ratio 1.3 PMBS - Optimized with RexxOpt 1.6 */
arg port .;address value 'rexx_PMBS'port;setaktion "CPS-Ratio";call FCVar;if NR="X" then call bye;if Log="CONSOLE" then call bye;if User="SYSOP" then call bye;call spus;send cls||cr;send center("Hier in der "||box||" läuft CPS-Ratio V"||ver||" ",80)||cr;serout center("Ein Tool von Michael Bartsch - Paisley Park BBS - 0441/9618982",80)||cr;serout center("Du hast einen "||baud||" Connect mit einem Ratio von 1:"||NR||".",80)||cr;send cls||cr;US_RA NR;Bye:;setaktion " ";quit;exit;SPUS:;If Exists("S:CPS-Ratio-NonUser.cfg") then;do;Open("NonUser","S:CPS-Ratio-NonUser.cfg",R);do while ~eof("NonUser");NonUser=readln("NonUser");If NonUser=User then;do;call Bye;end;end;close("NonUser");end;Return;FCVar:;options results;asklog;Log=result;ASKBOXNAME;box=result;askuser;User=result;US_BA;baud=result;US_RA;ratio=result;cr=d2c(13)||d2c(10);cls=d2c(12);ver="1.3 PMBS";checkcarrier;cc=result;Open(Ratio,"SYS:s/CPS-Ratio.cfg",R);B300=readln(Ratio);B1200=readln(Ratio);B2400=readln(Ratio);B4800=readln(Ratio);B7200=readln(Ratio);B9600=readln(Ratio);B12000=readln(Ratio);B14400=readln(Ratio);B16800=readln(Ratio);B19200=readln(Ratio);B21600=readln(Ratio);B24000=readln(Ratio);B26400=readln(Ratio);B28800=readln(Ratio);B38400=readln(Ratio);B64000=readln(Ratio);close(Ratio);If Baud=300 then NR=B300;If Baud=1200 then NR=B1200;If Baud=2400 then NR=B2400;If Baud=4800 then NR=B4800;If Baud=7200 then NR=B7200;If Baud=9600 then NR=B9600;If Baud=12000 then NR=B12000;If Baud=14400 then NR=B14400;If Baud=16800 then NR=B16800;If Baud=19200 then NR=B19200;If Baud=21600 then NR=B21600;If Baud=24000 then NR=B24000;If Baud=26400 then NR=B26400;If Baud=28800 then NR=B28800;If Baud=38400 then NR=B38400;If Baud=64000 then NR=B64000;return
